Appendix A 

#====================================================== 

# Demonstrates how to read records from a Cross-Barrier database 

# and display interactive forms. 
# 

# Program Author: Frank J. Engo 

# Set document title and color 

wintitle = "Database Example 1"; 
documentf'silver"); 

# Open Cross-Barrier table for shared read/write access 
opentable (tbICars, "Cars.cbd", Oo- 
center; par; 

fontf'maroon", 6,"broadway"); 

showtext("Welcome Guest"); 
efont; 

# Add paragraph break and horizontal divider 
par; hr(); 

# Read and show the Book Title, Author and ISBN fields 

# from the table 

bold; par; 

showtext ("Book Title: "); 

get (tbICars, 1, "Book Title"); lb; 

showtext ("Author: "); 

get (tbICars, 1, "Author"); lb; 

showtext ("ISBN:"); 

get (tbICars, 1,"ISBN"); lb; 

ebold; lb; 

# Close the table 
closetable (tbICars); 
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showpic("Graphics/Car.jpg", 305, 202); par; 
# Display forms to interact with users 

form( ,, frmOrder","test3.cb", "get"); 

showtextfQuantity: "); 

textboxC^xtQty",""^, 20, true); par; 

submit("btnOrder", "Add to Cart", 80, 30); 
eform; 

form("frmCancer,"test4.cb", "get"); 
submit("btnCancel", "Cancel", 60, 30); 

eform; 
ecenter; 
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